Public Class ApplicationForm

  Private Sub ReferencedAssembliesButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReferencedAssembliesButton.Click

    Me.OutputTextBox.Text = String.Empty

    Dim output As New System.Text.StringBuilder

    For Each assy As String In dotNetTips.Utility.ApplicationHelper.CurrentAssemblyReferencedAssemblies
      output.AppendLine(assy)
    Next

    Me.OutputTextBox.Text = output.ToString

  End Sub

  Private Sub AssemblyNameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AssemblyNameButton.Click

    Me.OutputTextBox.Text = String.Empty

    Me.OutputTextBox.Text = dotNetTips.Utility.ApplicationHelper.CurrentAssemblyName

  End Sub

  Private Sub IsAdminButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IsAdminButton.Click

    Me.OutputTextBox.Text = String.Empty

    Me.OutputTextBox.Text = dotNetTips.Utility.ApplicationHelper.CurrentUserIsAdministrator.ToString

  End Sub
End Class